1 REM Simulated Underlining 
Cursor Routine 
2 REM 19835 Richard Bredhoff 
J62 E 107 St 
Brooklyn, NY 
1123 
3 REM SYNCWARE NEWS 
2065 Screen Utility 
Competition Entry 
9 REM BORDER i: PAPER 1: CLS 
: INE & 
10 LET gẹ=" This is a demantrat 


ion af the simulated ‘underlin 
e cursor routine, | 

Li LET gt#=q$+CHRS 13+"It can b 
e used to print any instruct 
ions for games, or util-ities an 
d effect of a screen full of 
printing appearing suddenly 


ig avoided." 

12 LET g#=q#+CHRé 13+"The stri 
ng to be printed can be of any 1 
ength, have any legal name’ a 
nd may include any of the cont 
rol characters, simply by conca 
tenating the new charac-ters to 
the existing string." 

13 LET g#=q$+CHR? L3+"OF cours 
e, the BEEF can be made longer o 
r shorter or eliminated entirely 
» as can the two PAUSES in line 
SO) a a 

14 LET g#=g#+CHRe LIAE the t 
ext is longer than one screen, 
any additional screens may be d 
isplayed on demand, to allow fa 
e variations in reading speed an 
do comprehension, as shown. | 

1S LET gegt CHRE 13+ The vari 
abe ‘pager’ is initiallyset to Ū 
» turned on when the first pa 
ge is nearly full (PRINTLEN g%) 
and turned off by the subroaut i 
nme," 

19 LET pager=O 

20 FOR t=1 TO LEN g 

ee IF t520 AND teS22 THEN LE 
T pager=1 

24 IF pager=1 THEN GO SUB 101 
(8) 

SO PRINT “_"3: BEEP .OO1, 20: F 
RINT CHR 63" "ss PAUSE is PRINT 

CHR B:gë(t): PAUSE 1 

40 NEXT t 

45 PRINT AT 21,0; "Frese any ke 
y to reread Page 1..": PAUSE Os 
CLS : GO TO 20 

20 STUF 
1010 PRINT AT 21,0: "Press any ke 


i, kes ee ak eR a gs O e pa g gpp ma 


1020 LET pager=0: CLO : RETURN 
4999 STOF 

SO10 IF g#ta=CHRS 13 THEN LPFRI 
NT : LET arati 

S060 LPRINT CHR 12 

9990 STOF 

9995 CLEAR : SAVE "A WINNER I" L 
INE 1 


This is a demontration of the 
simulated ‘underline’ cursor 
routine. 

It can be used to print any 
instructions for games, or util- 
ities and effect of a screen 
full of printing appearing 
suddenly is avoided. 

The string to be printed can be 
of any length, have any legal 
‘name’ and may include any of 
the control characters, simply 
by concatenating the new charac- 
ters to the existing string. 

Of course, the BEEF can be made 
longer or shorter or eliminated 
entirely, as can the two PAUSES 
im line 3a, 

If the text is longer than one 
screen, any additional screens 
may be displayed on demand, to 
allow for variations in reading 
speed and comprehension, as 
shown a 

The variabe ‘pager’ is initially 
set to ü, turned on when the 
first page is nearly full (PRINT 
LEN g$) and turned off by the 
subroutine. 


